| Filename | (eval 165)[/usr/share/perl5/JSON.pm:353] |
| Statements | Executed 2 statements in 38µs |
| Eval Invoked At | /usr/share/perl5/JSON.pm line 353 |
| Sibling evals | 1, 2 |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 1 | 1 | 1 | 14µs | 34µs | JSON::PP::Boolean::BEGIN@3 |
| 0 | 0 | 0 | 0s | 0s | JSON::PP::Boolean::__ANON__[:13] |
| 0 | 0 | 0 | 0s | 0s | JSON::PP::Boolean::__ANON__[:4] |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 1 | |||||
| 2 | package JSON::PP::Boolean; | ||||
| 3 | # spent 34µs (14+20) within JSON::PP::Boolean::BEGIN@3 which was called:
# once (14µs+20µs) by JSON::Boolean::_overrride_overload at line 14 | ||||
| 4 | '""' => sub { ${$_[0]} == 1 ? 'true' : 'false' }, | ||||
| 5 | 'eq' => sub { | ||||
| 6 | my ($obj, $op) = ref ($_[0]) ? ($_[0], $_[1]) : ($_[1], $_[0]); | ||||
| 7 | if ($op eq 'true' or $op eq 'false') { | ||||
| 8 | return "$obj" eq 'true' ? 'true' eq $op : 'false' eq $op; | ||||
| 9 | } | ||||
| 10 | else { | ||||
| 11 | return $obj ? 1 == $op : 0 == $op; | ||||
| 12 | } | ||||
| 13 | }, | ||||
| 14 | 2 | 38µs | 2 | 55µs | ); # spent 34µs making 1 call to JSON::PP::Boolean::BEGIN@3
# spent 20µs making 1 call to overload::import |
| 15 | |||||
| 16 | ; |